home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MISC.SWG / 0072_Program Origin.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  218b  |  12 lines

  1.  
  2. {$X+}  { Need this for easy handling of Asciiz strings }
  3. var
  4.   parentseg : ^word;
  5.   p : pchar;
  6. begin
  7.   parentseg := ptr(prefixseg,$16);
  8.   p := ptr(parentseg^-1,8);
  9.   writeln('I was launched by ',p);
  10. end.
  11.  
  12.